if a<0.01 then a:=0.2341e15 else if 0>0 then 0:=1;